home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 77 / Tiger_Disk_077_20xx_Tiger-Crew-Disk_de_Side_B.d64 / turbo-dos writer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  42 lines
  1. 1 print" - bitte 30 sec. warten"
  2. 2 l=5:ni$=chr$(0):poke3838,l+1:dima%(23),b%(l),n$(97),p$(l)
  3. 3 fori=0to31:a$=a$+chr$(peek(3808+i)):le$=le$+ni$:nexti:n$(0)=a$
  4. 4 fori=0tol:a$="":forj=0to253:a$=a$+chr$(peek(3840+i*254+j)):next:p$(i)=a$:next
  5. 5 print"[147] turbo-dos writer  (c) 1984 umpah-pah [146]  - diskette ins laufwerk ";
  6. 6 print"legen ";:gosub41:print" - praepariere diskette":open1,8,15,"i":open2,8,2,"#"
  7. 7 print#1,"u1:2 0 18 0":print#1,"b-p:2 72":get#2,a$:ifa$=""thena$=ni$
  8. 8 bl=asc(a$):ifbl<l+1then40
  9. 9 fori=0to2:get#2,a$:ifa$=""thena$=ni$
  10. 10 a=asc(a$):forj=0to7:a%(i*8+j)=1:if(aand2^j)=0thena%(i*8+j)=0
  11. 11 nextj,i:s=1:n=1
  12. 12 print#1,"u1:2 0 18";s:fori=0to7:b$="":forj=0to31:get#2,a$:ifa$=""thena$=ni$
  13. 13 b$=b$+a$:nextj:n$(n+i)=b$:nexti:t=asc(n$(n)):s=asc(mid$(n$(n),2))
  14. 14 fori=nton+7:ifasc(mid$(n$(i),3))=0thent=i:goto22
  15. 15 nexti:ift=18thenn=n+8:goto12
  16. 16 ift<>0then40
  17. 17 s=1:ifn>1thens=asc(mid$(n$(n-8),2))
  18. 18 s=s+3:ifs>18thens=s-17
  19. 19 ifa%(s)=0then18
  20. 20 n$(n)=""+chr$(s)+right$(n$(n),30):n=n+8:fori=nton+6:n$(i)=le$:nexti
  21. 21 n$(n)=ni$+"[255]"+right$(n$(n),30):a%(s)=0:bl=bl-1:ifbl<l+1then40
  22. 22 fori=0tonstep8:n$(i)=left$(n$(i+1),2)+right$(n$(i),30)
  23. 23 n$(i+1)=ni$+ni$+right$(n$(i+1),30):nexti:s=0:ift=0then25
  24. 24 fori=tton+6:n$(i)=n$(i+1):nexti:t=0
  25. 25 s=s+3:ifs>18thens=s-19
  26. 26 ifa%(s)=0then25
  27. 27 a%(s)=0:b%(t)=s:bl=bl-1:t=t+1:ift<l+1then25
  28. 28 n$(0)=left$(n$(0),3)+""+chr$(b%(0))+right$(n$(0),27)
  29. 29 print#1,"u1:2 0 18 0":print#1,"b-p:2 72":print#2,chr$(bl);
  30. 30 fori=0to2:t=0:forj=0to7:ifa%(i*8+j)=1thent=t+2^j
  31. 31 nextj:print#2,chr$(t);:nexti:print#1,"u2:2 0 18 0":s=1
  32. 32 fori=0tonstep8:print#1,"b-p:2 0":forj=0to7:print#2,n$(i+j);:nextj
  33. 33 print#1,"u2:2 0 18";s:s=asc(mid$(n$(i),2)):nexti
  34. 34 fori=0tol-1:print#1,"b-p:2 0":print#2,""chr$(b%(i+1))p$(i);
  35. 35 print#1,"u2:2 0 18";b%(i):nexti:print#1,"b-p:2 0":print#2,ni$chr$(127)p$(l);
  36. 36 print#1,"u2:2 0 18";b%(l):close2:print#1,"i":close1:print" - fertig"
  37. 37 print" - noch eine diskette praeparieren ? ";:gosub41:ift$="j"then5
  38. 38 ift$<>"n"then37
  39. 39 sys64738
  40. 40 close2:close1:print" - probleme mit der directory:"bl;t;:gosub41:goto37
  41. 41 poke204,0:poke198,0:wait198,1:gett$:poke204,1:print" ":return
  42.